home *** CD-ROM | disk | FTP | other *** search
/ Clickx 23 / Clickx 23.iso / Menu.dcr / 00002_DB functions.ls < prev    next >
Encoding:
Text File  |  2005-09-14  |  3.6 KB  |  108 lines
  1. global gDB, gT_logos, gT_algemeen, gT_groepPC, gT_groepMAC, gT_filePC, gT_fileMAC
  2.  
  3. on loadDB
  4.   gDB = new(xtra("V12dbe"), the moviePath & "clickx.v12", "readonly", "lol")
  5.   if not objectp(gDB) then
  6.     alert("New V12dbe failed" & RETURN & V12Error())
  7.   end if
  8.   gT_logos = new(xtra("V12table"), mGetRef(gDB), "logos")
  9.   if not objectp(gT_logos) then
  10.     alert("New V12table failed: logos" & RETURN & V12Error())
  11.   end if
  12.   gT_algemeen = new(xtra("V12table"), mGetRef(gDB), "algemeen")
  13.   if not objectp(gT_algemeen) then
  14.     alert("New V12table failed: algemeen" & RETURN & V12Error())
  15.   end if
  16.   gT_groepPC = new(xtra("V12table"), mGetRef(gDB), "groepenPC")
  17.   if not objectp(gT_groepPC) then
  18.     alert("New V12table failed: groepenPC" & RETURN & V12Error())
  19.   end if
  20.   gT_groepMAC = new(xtra("V12table"), mGetRef(gDB), "groepenMAC")
  21.   if not objectp(gT_groepMAC) then
  22.     alert("New V12table failed: groepenMAC" & RETURN & V12Error())
  23.   end if
  24.   gT_filePC = new(xtra("V12table"), mGetRef(gDB), "filesPC")
  25.   if not objectp(gT_filePC) then
  26.     alert("New V12table failed: filesPC" & RETURN & V12Error())
  27.   end if
  28.   gT_fileMAC = new(xtra("V12table"), mGetRef(gDB), "filesMAC")
  29.   if not objectp(gT_fileMAC) then
  30.     alert("New V12table failed: filesMAC" & RETURN & V12Error())
  31.   end if
  32. end
  33.  
  34. on unloadDB
  35.   gDB = 0
  36.   gT_logos = 0
  37.   gT_algemeen = 0
  38.   gT_groepPC = 0
  39.   gT_groepMAC = 0
  40.   gT_filePC = 0
  41.   gT_fileMAC = 0
  42. end
  43.  
  44. on getAlgemeen
  45.   mSelect(gT_algemeen)
  46.   tabel = mGetSelection(gT_algemeen, "PropertyList", 1, mSelectCount(gT_algemeen), TAB, RETURN, "slogan")
  47.   return tabel
  48. end
  49.  
  50. on getLinksPC
  51.   mOrderBy(gT_logos, "volgnrPC")
  52.   mSelect(gT_logos)
  53.   tabel = mGetSelection(gT_logos, "PropertyList", 1, mSelectCount(gT_logos), TAB, RETURN, "image", "URL")
  54.   return tabel
  55. end
  56.  
  57. on getGroupsPC
  58.   mOrderBy(gT_groepPC, "volgnr")
  59.   mSelect(gT_groepPC)
  60.   tabel = mGetSelection(gT_groepPC, "PropertyList", 1, mSelectCount(gT_groepPC), TAB, RETURN, "ID", "Naamknop", "Titel", "Slogan", "bgImage", "kleurCaption", "kleurURL")
  61.   return tabel
  62. end
  63.  
  64. on getFilesPC groupID
  65.   mSetCriteria(gT_filePC, "groepID", "=", groupID)
  66.   mOrderBy(gT_filePC, "volgnr")
  67.   mSelect(gT_filePC)
  68.   tabel = mGetSelection(gT_filePC, "PropertyList", 1, mSelectCount(gT_filePC), TAB, RETURN, "ID", "Naam")
  69.   return tabel
  70. end
  71.  
  72. on getFileDetailsPC fileID
  73.   mSetCriteria(gT_filePC, "ID", "=", fileID)
  74.   mSelect(gT_filePC)
  75.   tabel = mGetSelection(gT_filePC, "PropertyList", 1, mSelectCount(gT_filePC), TAB, RETURN, "ID", "Naam", "Image", "Caption", "Url", "Specs", "Type", "Prijs", "grootte", "Auteur", "win95", "win98", "winME", "winNT", "win2000", "winXP", "win2003", "KnopTekst", "BestandsNaam")
  76.   put tabel
  77.   return tabel
  78. end
  79.  
  80. on getLinksMAC
  81.   mOrderBy(gT_logos, "volgnrMAC")
  82.   mSelect(gT_logos)
  83.   tabel = mGetSelection(gT_logos, "PropertyList", 1, mSelectCount(gT_logos), TAB, RETURN, "image", "URL")
  84.   return tabel
  85. end
  86.  
  87. on getGroupsMAC
  88.   mOrderBy(gT_groepMAC, "volgnr")
  89.   mSelect(gT_groepMAC)
  90.   tabel = mGetSelection(gT_groepMAC, "PropertyList", 1, mSelectCount(gT_groepMAC), TAB, RETURN, "ID", "Naamknop", "Titel", "Slogan", "bgImage", "kleurCaption", "kleurURL")
  91.   return tabel
  92. end
  93.  
  94. on getFilesMAC fileID
  95.   mSetCriteria(gT_fileMAC, "groepID", "=", fileID)
  96.   mOrderBy(gT_fileMAC, "volgnr")
  97.   mSelect(gT_fileMAC)
  98.   tabel = mGetSelection(gT_fileMAC, "PropertyList", 1, mSelectCount(gT_fileMAC), TAB, RETURN, "ID", "Naam")
  99.   return tabel
  100. end
  101.  
  102. on getFileDetailsMAC fileID
  103.   mSetCriteria(gT_fileMAC, "ID", "=", fileID)
  104.   mSelect(gT_fileMAC)
  105.   tabel = mGetSelection(gT_fileMAC, "PropertyList", 1, mSelectCount(gT_fileMAC), TAB, RETURN, "ID", "Naam", "Image", "Caption", "Url", "Specs", "OS", "Type", "Prijs", "grootte", "Auteur", "KnopTekst", "BestandsNaam")
  106.   return tabel
  107. end
  108.